home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / windows / wbt31a.zip / SYSINFO.WB$ < prev    next >
Text File  |  1991-12-28  |  2KB  |  69 lines
  1. ;Display(1,"Ta Da","Looking up sysinfo")
  2. CR=strcat(Num2char(13),Num2Char(10))
  3. TAB=Num2Char(9)
  4.  
  5. wintype="retail"
  6. if WinMetrics(22) then wintype="debug"
  7.  
  8. wc=WinConfig()
  9. if !(wc&1) then mode="Real"
  10. if wc&16 then mode="Standard"
  11. if wc&32 then mode="Enhanced"
  12.  
  13. if wc&2 then cpu=286
  14. if wc&4 then cpu=386
  15. if wc&8 then cpu=486
  16. if wc&64 then cpu=8086
  17. if wc&128 then cpu=80186
  18.  
  19. Sysinfo=strcat(cpu,' ',mode,' ',wintype,' Windows ',WinVersion(1),'.',WinVersion(0),CR)
  20.  
  21.  
  22.  
  23. math="No math"
  24. if wc&1024 then math="Math"
  25. mouse="No Mouse"
  26. if WinMetrics(19) then mouse="Mouse"
  27.  
  28. Sysinfo=strcat(sysinfo,math," co-processor.   ",mouse,' available.',CR)
  29.  
  30.  
  31.  
  32. sysinfo=strcat(sysinfo,WinMetrics(0),'x',WinMetrics(1)," video resolution.  ",WinMetrics(-1),"  colors.",CR)
  33.  
  34. ErrorMode(@OFF)
  35. LastError()
  36. PlayMedia("Status WaveForm Ready")
  37. ErrorMode(@CANCEL)
  38. if LastError()!=1193 then sysinfo=strcat(sysinfo,"Windows multimedia extensions present.",CR)
  39.  
  40. bug=NetGetCaps(2)
  41. if bug==0 then math="No n"
  42. if bug!=0 then math="N"
  43. if bug==256 then math="Microsoft n" 
  44. if bug==512 then math="Lan Manager n" 
  45. if bug==768 then math="Novell NetWare n" 
  46. if bug==1024 then math="Banyan Vines n" 
  47. if bug==1280 then math="10 Net n"
  48. sysinfo=strcat(sysinfo,math,"etwork installed.",CR) 
  49.  
  50. bug=WinResources(0)/1024   ; Compute memory avail
  51. math=strlen(bug)
  52. if math>3 then bug=strcat(strsub(bug,1,math-3),',',strsub(bug,math-2,3))
  53.  
  54. sysinfo=strcat(sysinfo,CR,bug," KB Free Memory",CR)
  55. sysinfo=strcat(sysinfo,WinResources(2),"%% System Resources Free (",WinResources(3),"%% GDI, ",WinResources(4),"%% User)",CR)
  56.  
  57. sysinfo=strcat(sysinfo,"DOS ",DosVersion(1),'.',DosVersion(0),"  using ",environment("COMSPEC"),CR)
  58. disks=DiskScan(1)
  59. if disks!="" then sysinfo=strcat(sysinfo,"Floppies ",disks,CR)
  60. disks=DiskScan(2)
  61. if disks!="" then sysinfo=strcat(sysinfo,"Hard Disks ",disks,CR)
  62. disks=DiskScan(4)
  63. if disks!="" then sysinfo=strcat(sysinfo,"Network Disks ",disks,CR)
  64. sysinfo=strcat(sysinfo,"Windows Directory ",DirWindows(0),CR)
  65. sysinfo=strcat(sysinfo,"System  Directory ",DirWindows(1),CR)
  66.  
  67. ver=Version()
  68. Message("WinBatch %ver% SysInfo",Sysinfo)
  69.